home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / game / text / EAC14b.lha / EAC / Developers / Tutorials / Tutorial_11.EAC < prev    next >
Text File  |  1980-01-05  |  441b  |  20 lines
  1.         .----------------------------------------------------.
  2.         |  This example shows you how to use the WRITEIF: ,  |
  3.         |            ENDWRITE: and RND: commands.            |
  4.         `----------------------------------------------------'
  5.  
  6. DEC:Number=0
  7. NOBUSY:
  8.  
  9. PAGE:START
  10. RND:Number:2
  11.  
  12. WRITEIF:Number=0
  13. Random number = 0
  14. ENDWRITE:
  15. WRITEIF:Number=1
  16. Random number = 1
  17. ENDWRITE:
  18. ADDOPT:Select another random number:START
  19. ENDPAGE:
  20.